home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / doors_2 / twview91.zip / STATISTC.INC < prev    next >
Text File  |  1992-03-11  |  1KB  |  35 lines
  1. procedure StellarDispersion;
  2. const
  3.   maxDispersion = 29;
  4. var
  5.   s : sector;
  6.   disperse : array [0..maxDIspersion] of integer;
  7.   average  : longint;
  8.   total,
  9.   temp,
  10.   lost     : integer;
  11. begin
  12.   write( 'Stellar dispersion from what sector? ');
  13.   readln( s );
  14.   TwoWayDistances( s, distances, true, true );
  15.   for temp := 0 to maxDispersion do
  16.     disperse[ temp ] := 0;
  17.   lost := 0;
  18.   for s := 1 to maxSector do
  19.     if distances[s].d < maxint then
  20.       disperse[ distances[ s ].d ] := disperse[ distances[ s ].d ] + 1
  21.     else if space.sectors[s].number > 0 then   { visited, but not connected?}
  22.       lost := lost + 1;
  23.   average := 0;
  24.   for temp := 0 to maxDispersion do
  25.     begin
  26.       average := average + temp * disperse[ temp ];
  27.       total := total + disperse[ temp ];
  28.       write( disperse[ temp ] : 5 );
  29.       if temp mod 10 = 9 then
  30.         writeln;
  31.     end;
  32.   writeln('There are ', lost, ' unreachable sectors, ', total, ' reachable sectors.');
  33.   writeln('Average distance to (known) sectors: ', average / total : 2 : 2);
  34. end;
  35.